home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Tools 4
/
Amiga Tools 4.iso
/
grafix
/
raytracing
/
raystorm
/
examples
/
arexx
/
supersample.ray
< prev
next >
Wrap
Text File
|
1996-02-26
|
915b
|
53 lines
/***************
* NAME: supersample.ray
* VERSION: 1.0 17.10.95
* DESCRIPTION: Adaptive supersampling
* AUTHORS: Andreas Heumann
* BUGS: none
* TO DO: none
* HISTORY:
* DATE NAME COMMENT
* 17.10.95 ah initial release
***************/
signal on error
options results
IF ~show('P','RAYSTORM') THEN DO
address COMMAND 'run >NIL: <NIL: /RayStorm'
address COMMAND WaitForPort RAYSTORM
END
address RAYSTORM
'TEXTUREPATH /textures'
'SETSCREEN 128 128'
'SETCAMERA <0,0,-300> <0,0,0> <0,1,0> 45 45'
'SETWORLD [0,0,0] [100,100,100]'
'POINTLIGHT <0,0,-200>'
'NEWSURFACE MAP1'
'IMTEXTURE checker.itx <0,1,0> <0,0,1> <32,32,32> 255 255 255'
'SPECULAR [255,255,255]'
'DIFFUSE [255,0,0]'
'SPHERE MAP1 <0,0,0> 50'
'ANTIALIAS 2'
'STARTRENDER QUICK'
'SAVEPIC supersample.iff'
'CLEANUP'
exit 0
error:
say "Error" rc "in line" sigl ":"
GETERRORSTR rc
say result
exit 0